home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 September / macformat-004.iso / Demos / Asymptote / Examples / Manual Examples / graphpanel < prev    next >
Encoding:
Text File  |  1994-06-15  |  541 b   |  17 lines  |  [TEXT/DWat]
  1. % graphpanel left right bottom top num_of_panels panel_number
  2.  
  3. % DESCRIPTION:
  4. %     Divide a rectangle into a set of vertical panels
  5. %     and set the graph frame to a particular panel
  6.  
  7. % ARGUMENTS:
  8. %     left,right        — a rectangle that encloses all of the
  9. %        bottom,top            panels
  10. %        num_of_panels    — the number of vertical panels
  11. %        panel_number    — the desired panel number (1 = bottom)
  12.  
  13. set panel_height &4 &3 - &5 /
  14. set panel_bottom &6 1 - panel_height * &3 +
  15. set panel_top panel_bottom panel_height +
  16.  
  17. graphframe &1 &2 panel_bottom panel_top